home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
018a
/
pdxwp122.zip
/
PDX2WP.SC
< prev
next >
Wrap
Text File
|
1991-12-05
|
1KB
|
38 lines
if nimages() > 0 then
showmenu
"Table" : "Create a WordPerfect table from a Paradox table",
"Columns": "Create WordPerfect parallel columns from Paradox table",
"Merge" : "Create WordPerfect secondary merge file from Paradox table",
"Fields" : "Create WordPerfect merge document with Field Names",
"Quit" : "Cancel PDX2WP translation utility"
to choice
switch
case choice = "Table":
run big "pdx2wp " + table() + ".tbl " + table() + " /t"
case choice = "Columns":
run big "pdx2wp " + table() + ".col " + table() + " /c"
case choice = "Merge":
run big "pdx2wp " + table() + ".mrg " + table() + " /m"
case choice = "Fields":
run big "pdx2wp " + table() + ".mrg " + table() + " /mf"
case choice = "Quit":
case choice = "Esc":
release vars choice
return
endswitch
else
message "Cannot run PDX2WP -- no table has been selected"
sleep 3000
endif